home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 March / macformat-022.iso / Shareware City / Utilities / numbertostring / Numbertostring.fm (.txt)
Encoding:
FileMaker Pro Database  |  1994-11-22  |  24.5 KB  |  243 lines  |  [FMPR/FMPR]
  1. HBAM2001MAY84
  2. Ksagzahl.fm:Bota_L
  3. Pro 2.0 - 2.1F!
  4. Pro 2.0 - 2.1I
  5. Deutsches W
  6. rterbuch
  7.     19.7.1994
  8. NUMBERTEXT
  9. ZAHLTEXT
  10. zahlB
  11. zahltextB
  12. NUMBERTEXT
  13. ZAHLTEXT
  14. zahlB
  15. zahltextB
  16. if(zahl 
  17.  1000000;"Mindestens eine Million, ";"")
  18. &if(mod(mod(int(zahl/100000);10);10)=0;"";if(mod(mod(int(zahl/100000);10);10)=1;"ein";if(mod(mod(int(zahl/100000);10);10)=2;"zwei";if(mod(mod(int(zahl/100000);1B
  19. 0);10)=3;"drei";if(mod(mod(int(zahl/100000);10);10)=4;"vier";if(mod(mod(int(zahl/100000);10);10)=5;"f
  20. nf";if(mod(mod(int(zahl/100000);10);10)=6;"sechs";if(mod(mod(int(zahl/100000);10);10)=7;"sieben";if(mod(mod(
  21. int(zahl/100000);10);10)=8;"acht";"neun"))))))))&"hundert")&if(mod(mod(int(zahl/10000);10);10)=1 and Mod (mod(int(zahl/1000);10);10) < 3;if(Mod(mod(int(zahl/1000);10);10)=0;"zehn";if(Mod (mod(int(zahl/1000);10)D
  22. ;10)=1;"elf";"zw
  23. lf")); if(Mod(mod(int(zahl/1000);10);10)=1;"ein";if(Mod (mod(int(zahl/1000);10);10)=2;"zwei";if(Mod (mod(int(zahl/1000);10);10)=3;"drei";if(Mod(mod(int(zahl/1000);10);10)=4;"vier"; if(Mod (mod(
  24. int(zahl/1000);10);10)=5;"f
  25. nf";if(Mod(mod(int(zahl/1000);10);10)=6;if(mod(mod(int(zahl/10000);10);10)=1;"sech";"sechs");if(Mod (mod(int(zahl/1000);10);10)=7;if(mod(mod(int(zahl/10000);10);10)=1;"sieb";"sieben"F
  26. );if(Mod (mod(int(zahl/1000);10);10)=8;"acht";if(Mod(mod(int(zahl/1000);10);10)=9;"neun";""))))))))) &if(mod(mod(int(zahl/10000);10);10)>1 and Mod (mod(int(zahl/1000);10);10)>0;"und";"")&if(mod(mod(int(zahl/100
  27. 00);10);10)=1;"zehn";if(mod(mod(int(zahl/10000);10);10)=2;"zwanzig";if(mod(mod(int(zahl/10000);10);10)=3;"drei
  28. ig";if(mod(mod(int(zahl/10000);10);10)=4;"vierzig";if(mod(mod(int(zahl/10000);10);10)=5;"f
  29. nfzig";iH
  30. f(mod(mod(int(zahl/10000);10);10)=6;"sechzig";if(mod(mod(int(zahl/10000);10);10)=7;"siebzig";if(mod(mod(int(zahl/10000);10);10)=8;"achtzig";if(mod(mod(int(zahl/10000);10);10)=9;"neunzig";""))))))))))
  31. &if(zahl<1
  32. 000;"";"tausend"&if(mod(int(zahl/100);10)=0 and (mod(int(zahl);1000)) 
  33.  0;"und";""))
  34. &if(mod(int(zahl/100);10)=0;"";if(mod(int(zahl/100);10)=1;"ein";if(mod(int(zahl/100);10)=2;"zwei";if(mod(int(zahl/100);10)=3;J
  35. "drei";if(mod(int(zahl/100);10)=4;"vier";if(mod(int(zahl/100);10)=5;"f
  36. nf";if(mod(int(zahl/100);10)=6;"sechs";if(mod(int(zahl/100);10)=7;"sieben";if(mod(int(zahl/100);10)=8;"acht";"neun"))))))))&"hundert")&if(m
  37. od(Int(zahl/10);10)=1 and Mod (int(zahl);10) < 3;if(Mod(int(zahl);10)=0;"zehn";if(Mod (int(zahl);10)=1;"elf";"zw
  38. lf")); if(Mod(int(zahl);10)=1;"ein";if(Mod (int(zahl);10)=2;"zwei";if(Mod (int(zahl);10)=3;"drei"L
  39. ;if(Mod(int(zahl);10)=4;"vier"; if(Mod (int(zahl);10)=5;"f
  40. nf";if(Mod(int(zahl);10)=6;if(mod(Int(zahl/10);10)=1;"sech";"sechs");if(Mod (int(zahl);10)=7;if(mod(Int(zahl/10);10)=1;"sieb";"sieben");if(Mod (int(zah
  41. l);10)=8;"acht";if(Mod(int(zahl);10)=9;"neun";""))))))))) &if(mod(Int(zahl/10);10)>1 and Mod (int(zahl);10)>0;"und";"")&if(mod(Int(zahl/10);10)=1;"zehn";if(mod(Int(zahl/10);10)=2;"zwanzig";if(mod(Int(zahl/10);1N
  42. 0)=3;"drei
  43. ig";if(mod(Int(zahl/10);10)=4;"vierzig";if(mod(Int(zahl/10);10)=5;"f
  44. nfzig";if(mod(Int(zahl/10);10)=6;"sechzig";if(mod(Int(zahl/10);10)=7;"siebzig";if(mod(Int(zahl/10);10)=8;"achtzig";if(mod(Int(zahl
  45. OB/10);10)=9;"neunzig";""))))))))))
  46. &if(mod(int(zahl);100)=1;"s";"")
  47. Mindestens eine Million, '
  48. sechs
  49. sieben
  50. acht'
  51. hundert(
  52. sech'
  53. sechs
  54. sieb'
  55. sieben
  56. neun'
  57. zwanzig
  58. vierzig
  59. nfzig
  60. sechzig
  61. siebzig
  62. achtzig
  63. neunzig'
  64. tausend
  65. sechs
  66. sieben
  67. acht'
  68. hundert(
  69. sech'
  70. sechs
  71. sieb'
  72. sieben
  73. neun'
  74. zwanzig
  75. vierzig
  76. nfzig
  77. sechzig
  78. siebzig
  79. achtzig
  80. neunzig'
  81. numbertextB
  82. if(zahl 
  83.  1000000;"Some Millions ";"") &if(mod(int(zahl/100000);10)=0;""; if(mod(int(zahl/100000);10)=1;"one";if(mod(int(zahl/100000);10)=2;"two";if(mod(int(zahl/100000);10)=3; "three";if(mod(int(zahl/100000);1
  84. 0)=4;"four";if(mod(int(zahl/100000);10)=5; "five";if(mod(int(zahl/100000);10)=6;"six";if(mod(int(zahl/100000);10)=7;"seven";if(mod(int(zahl/100000);10)=8; "eight";if(mod(int(zahl/100000);10)=9;"nine";""))))))))C
  85. ) &" hundred") & if(zahl < 100000 or mod(int(zahl/1000);100)=0;"";" "&if(mod(int(zahl/100000);10)=0 or mod(int(zahl/10000);10) =0;"and ";"")) &if(mod(int(zahl/10000);10) 
  86.  2; if(mod(int(zahl/10000);10)=1;"teen"
  87. ;if(mod(int(zahl/10000);10)=2;"twenty";if(mod(int(zahl/10000);10)=3; "thirty";if(mod(int(zahl/10000);10)=4;"fourty";if(mod(int(zahl/10000);10)=5; "fifty";if(mod(int(zahl/10000);10)=6;"sixty";if(mod(int(zahl/100E
  88. 00);10)=7;"seventy";if(mod(int(zahl/10000); 10)=8;"eighty";if(mod(int(zahl/10000);10)=9;"ninety";""))))))))) &if(Mod (int(zahl);10)>0;" ";"")& if(mod(int(zahl/1000);10)=1;"one";if(mod(int(zahl/1000);10)=2;"two"
  89. ;if(mod(int(zahl/1000);10)=3;"three"; if(mod(int(zahl/1000);10)=4;"four";if(mod(int(zahl/1000);10)=5;"five"; if(mod(int(zahl/1000);10)=6;"six";if(mod(int(zahl/1000);10)=7;"seven";if(mod(int(zahl/1000);10)=8;"eiG
  90. ght" ;if(mod(int(zahl/1000);10)=9;"nine";""))))))))); if(mod(int(zahl/10000);10)=1; if(mod(int(zahl/1000);10)<4;if(mod(int(zahl/1000);10) 
  91.  1;if(mod(int(zahl/1000);10)=0;"ten";"eleven");if(mod(int(zahl/1000);10
  92. )=2;"twelve";"thirteen")); if(mod(int(zahl/1000);10)=8;"eighteen"; if(mod(int(zahl/1000);10)=5;"fifteen"; if(mod(int(zahl/1000);10)=1;"one";if(mod(int(zahl/1000);10)=2;"two";if(mod(int(zahl/1000);10)=3; "three"I
  93. ;if(mod(int(zahl/1000);10)=4;"four";if(mod(int(zahl/1000);10)=5;"five"; if(mod(int(zahl/1000);10)=6;"six";if(mod(int(zahl/1000);10)=7;"seven";if(mod(int(zahl/1000);10)=8; "eight";if(mod(int(zahl/1000);10)=9;"ni
  94. ne";"")))))))))&"teen"))); if(mod(int(zahl/1000);10)=1;"one";if(mod(int(zahl/1000);10)=2;"two";if(mod(int(zahl/1000);10)=3;"three";if(mod(int(zahl/1000);10)=4;"four";if(mod(int(zahl/1000);10)=5;"five"; if(mod(iK
  95. nt(zahl/1000);10)=6;"six";if(mod(int(zahl/1000);10)=7;"seven";if(mod(int(zahl/1000);10)=8; "eight";if(mod(int(zahl/1000);10)=9;"nine";""))))))))))) &if(zahl<1000;"";" thousand"&if(int(zahl/1000)=1;"";"s")&if(mo
  96. d(zahl;100) > 0;" ";"")) &if(mod(int(zahl/100);10)=0;""; if(mod(int(zahl/100);10)=1;"one";if(mod(int(zahl/100);10)=2;"two";if(mod(int(zahl/100);10)=3;"three" ;if(mod(int(zahl/100);10)=4;"four";if(mod(int(zahl/1M
  97. 00);10)=5;"five"; if(mod(int(zahl/100);10)=6;"six";if(mod(int(zahl/100);10)=7;"seven";if(mod(int(zahl/100);10)=8;"eight" ;if(mod(int(zahl/100);10)=9;"nine";"")))))))))&" hundred") & if(zahl < 100 or mod(zahl;10
  98. 0)=0;"";" "&if(mod(int(zahl/100);10)=0 or mod(Int (zahl/10);10) =0;"and ";"")) &if(mod(Int (zahl/10);10) 
  99.  2; if(mod(Int (zahl/10);10)=1;"teen";if(mod(Int (zahl/10);10)=2;"twenty";if(mod(Int (zahl/10);10)=3;"thO
  100. irty";if(mod(Int (zahl/10);10)=4;"fourty";if(mod(Int (zahl/10);10)=5;"fifty"; if(mod(Int (zahl/10);10)=6;"sixty";if(mod(Int (zahl/10);10)=7;"seventy";if(mod(Int (zahl/10);10)=8;"eighty";if(mod(Int (zahl/10);10)
  101. =9;"ninety";""))))))))) &if(Mod (int(zahl);10)>0;" ";"")& if(Mod (int(zahl);10)=1;"one";if(Mod (int(zahl);10)=2;"two";if(Mod (int(zahl);10)=3;"three";if(Mod (int(zahl);10)=4;"four";if(Mod (int(zahl);10)=5;"fiveQ
  102. ";if(Mod (int(zahl);10)=6;"six"; if(Mod (int(zahl);10)=7;"seven";if(Mod (int(zahl);10)=8;"eight";if(Mod (int(zahl);10)=9;"nine";""))))))))); if(mod(Int (zahl/10);10)=1; if(Mod (int(zahl);10)<4;if(Mod (int(zahl)
  103. ;10) 
  104.  1;if(Mod (int(zahl);10)=0;"ten";"eleven");if(Mod (int(zahl);10)=2;"twelve";"thirteen"));if(Mod (int(zahl);10)=8;"eighteen";if(Mod (int(zahl);10)=5;"fifteen"; if(Mod (int(zahl);10)=1;"one";if(Mod (int(zahS
  105. l);10)=2;"two";if(Mod (int(zahl);10)=3;"three";if(Mod (int(zahl);10)=4;"four";if(Mod (int(zahl);10)=5;"five";if(Mod (int(zahl);10)=6;"six"; if(Mod (int(zahl);10)=7;"seven";if(Mod (int(zahl);10)=8;"eight";if(Mod
  106.  (int(zahl);10)=9;"nine";"")))))))))&"teen"))); if(Mod (int(zahl);10)=1;"one";if(Mod (int(zahl);10)=2;"two";if(Mod (int(zahl);10)=3;"three";if(Mod (int(zahl);10)=4;"four";if(Mod (int(zahl);10)=5;"five";if(Mod (U
  107. int(zahl);10)=6;"six"; if(Mod (int(zahl);10)=7;"seven";if(Mod (int(zahl);10)=8;"eight";if(Mod (int(zahl);10)=9;"nine";"")))))))))))
  108. Some Millions '
  109. three
  110. seven
  111. eight
  112. nine'
  113.  hundred(
  114. and '
  115. twenty
  116. thirty
  117. fourty
  118. fifty
  119. sixty
  120. seventy
  121. eighty
  122. ninety'
  123. three
  124. seven
  125. eight
  126. nine'
  127. eleven
  128. twelve'
  129. thirteen
  130. eighteen
  131. fifteen
  132. three
  133. seven
  134. eight
  135. nine'
  136. teen(
  137. three
  138. seven
  139. eight
  140. nine'
  141. '     thousand
  142. three
  143. seven
  144. eight
  145.  hundred(
  146. and '
  147. twenty
  148. thirty
  149. fourty
  150. fifty
  151. sixty
  152. seventy
  153. eighty
  154. ninety'
  155. three
  156. seven
  157. eight
  158. nine'
  159. eleven
  160. twelve'
  161. thirteen
  162. eighteen
  163. fifteen
  164. three
  165. seven
  166. eight
  167. nine'
  168. teen(
  169. three
  170. seven
  171. eight
  172. nine'
  173. deutsch
  174. english
  175. deutschB
  176. Fr Hn
  177. dies ist *gratis*
  178. Schick mir eine mail wenn es dir irgendwas nutzt.
  179. Erzeugt Zahltext aus dem ganzzahligen Teil der Zahl.
  180. r die Verwendung in anderen Dateien geht man am einfachsten so vor:
  181. In dieser Datei hi
  182. er das Feld 
  183.  im Felder-Definieren-Dialog so umbenennen, wie das Eingabe-Feld in der anderen Datei hei
  184. t, also z.B. 
  185. Betrag
  186. Die ganze Formel aus dem Feld 
  187. Zahltext
  188.  herauskopieren:
  189. im Felder-definieren-DC
  190. ialog das Feld 
  191. Zahltext
  192.  doppelklicken
  193. Formel mit Cmd-A und Cmd-C in die Zwischenablage kopieren (geht nicht mit Menubefehlen)
  194. Dialog mit 
  195. Abbrechen
  196.  verlassen
  197. In der Zieldatei den Felder-definieren-Dialog auf
  198. rufen
  199. Feld definieren, das den Zahltext enthalten soll (Name beliebig, Typ 
  200. Formel
  201. ; Ergebnistyp 
  202. Inhalt der Zwischenablage ins Formeldefinitionsfeld kopieren.
  203. Achtung: auf langsamen Macs oder bei DateieE
  204. n mit sehr vielen Datens
  205. tzen kann es dann eine Weile dauern,
  206. bis Filemaker die Formel gefressen hat!
  207. Ah ja, wie 
  208. blich keine Garantie auf nix.
  209.  jp 1994 paulsen@urz.unibas.ch
  210. englishB
  211. Fr Hn
  212. This file holds a somewhat nested formula. Give it any number, and it will display it as text string...
  213. You can easily paste this in any FileMaker application:
  214. Rename the input field 
  215.  in this file exactlyB
  216.  similar to the field that holds your number you want to see as text string in the Filemaker file;
  217. Open the formula editor by double-clicking the formula name in the 
  218. Define Fields
  219.  dialog;
  220. select te Formula (C
  221. md-A and Cmd-C will work) and copy it to the clipboard;
  222. create an output field (arbitrarily named, Typ formula text) in the other FileMaker file;
  223. paste the formula into the editor window;
  224. *wait* until FM Pro acD
  225. cepts it (will take some time if your machine is a MacPlus)
  226. Usual software caveats apply (It
  227. s your problem if you use this to print out some 
  228. money orders and are charged hundred times more.) 
  229. I did not feel 
  230. happy to cover all possibilities of silly inputs. If you want to proceed any garbage with this formula, do it at your own.
  231. Will not work properly with negative numbers. Only integer values are converted.
  232. if yoFau find a bug, remove it and send me a copy of the  fixed version.
  233.  jp 1994 paulsen@urz.unibas.ch
  234. EmThis is absolutely *free*
  235. If you happen to earn some money or to have fun with this, send me at least a mail.
  236. einsO
  237. Fr Hn
  238.     Helvetica
  239. Geneva
  240. Monaco
  241. Anwenderw
  242. rterbuch
  243.